Fix C-h prompt for show-keymap commands

diff --git a/which-key.el b/which-key.el
index f21fd23fcd6aed873bf21e486ab3f85ed6de258d..a952a9831dcf2046b9ee87e0b61be386c6de98ce 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1796,7 +1796,10 @@ prefix) if `which-key-use-C-h-commands' is non nil."
   (let* ((prefix-keys (key-description which-key--current-prefix))
          (full-prefix (which-key--full-prefix prefix-keys current-prefix-arg t))
          (prompt (concat (when (string-equal prefix-keys "")
-                           (propertize " Top-level bindings" 'face 'which-key-note-face))
+                           (propertize (concat " "
+                                               (or which-key--current-show-keymap-name
+                                                   "Top-level bindings"))
+                                       'face 'which-key-note-face))
                          full-prefix
                          (propertize
                           (substitute-command-keys